home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / genial / ui / guide_files / file.G < prev    next >
Encoding:
Text File  |  1992-07-14  |  14.0 KB  |  504 lines
  1. ;GIL-3
  2. (
  3. (
  4.     :type                   :base-window
  5.     :name                   window1
  6.     :owner                  nil
  7.     :width                  385
  8.     :height                 168
  9.     :background-color       ""
  10.     :foreground-color       ""
  11.     :label                  "File I/O"
  12.     :label-type             :string
  13.     :initial-state          :invisible
  14.     :show-footer            nil
  15.     :resizable              nil
  16.     :icon-file              ""
  17.     :icon-label             ""
  18.     :icon-mask-file         ""
  19.     :event-handler          nil
  20.     :user-data              ()
  21.     :actions                ()
  22. )
  23. (
  24.     :type                   :control-area
  25.     :name                   controls1
  26.     :owner                  window1
  27.     :help                   ""
  28.     :x                      0
  29.     :y                      0
  30.     :width                  385
  31.     :height                 168
  32.     :background-color       ""
  33.     :foreground-color       ""
  34.     :initial-state          :visible
  35.     :show-border            nil
  36.     :menu                   nil
  37.     :event-handler          nil
  38.     :user-data              ()
  39.     :actions                ()
  40. )
  41. (
  42.     :type                   :message
  43.     :name                   message1
  44.     :owner                  controls1
  45.     :help                   ""
  46.     :x                      8
  47.     :y                      16
  48.     :width                  35
  49.     :height                 13
  50.     :foreground-color       ""
  51.     :label                  "Load:"
  52.     :label-type             :string
  53.     :label-bold             t
  54.     :initial-state          :active
  55.     :event-handler          nil
  56.     :user-data              ()
  57.     :actions                ()
  58. )
  59. (
  60.     :type                   :setting
  61.     :name                   lmode
  62.     :owner                  controls1
  63.     :help                   ""
  64.     :x                      28
  65.     :y                      31
  66.     :width                  173
  67.     :height                 23
  68.     :value-x                76
  69.     :value-y                31
  70.     :rows                   1
  71.     :columns                0
  72.     :layout-type            :horizontal
  73.     :foreground-color       ""
  74.     :setting-type           :stack
  75.     :selection-required     t
  76.     :label                  "mode:"
  77.     :label-type             :string
  78.     :notify-handler         lmode_proc
  79.     :event-handler          nil
  80.     :choices                ("GENIAL Image" "GENIAL log file" )
  81.     :choice-label-types     (:string :string )
  82.     :choice-colors          ("" "" )
  83.     :choice-defaults        (nil nil )
  84.     :initial-selections     (nil nil )
  85.     :initial-state          :active
  86.     :user-data              ()
  87.     :actions                (
  88.         (
  89.         :from                   (window1 lmode)
  90.         :when                   (Notify )
  91.         :to                     (window1 lmode)
  92.         :function_type          CallFunction
  93.         :arg_type               ()
  94.         :action                 (lmode_proc)
  95.         )
  96.     )
  97. )
  98. (
  99.     :type                   :button
  100.     :name                   load
  101.     :owner                  controls1
  102.     :help                   ""
  103.     :x                      329
  104.     :y                      33
  105.     :width                  44
  106.     :height                 19
  107.     :constant-width         nil
  108.     :button-type            :normal
  109.     :foreground-color       ""
  110.     :label                  "load"
  111.     :label-type             :string
  112.     :initial-state          :active
  113.     :menu                   nil
  114.     :notify-handler         load_proc
  115.     :event-handler          nil
  116.     :user-data              ()
  117.     :actions                (
  118.         (
  119.         :from                   (window1 load)
  120.         :when                   (Notify )
  121.         :to                     (window1 load)
  122.         :function_type          CallFunction
  123.         :arg_type               ()
  124.         :action                 (load_proc)
  125.         )
  126.     )
  127. )
  128. (
  129.     :type                   :button
  130.     :name                   chooser_load
  131.     :owner                  controls1
  132.     :help                   ""
  133.     :x                      280
  134.     :y                      57
  135.     :width                  102
  136.     :height                 19
  137.     :constant-width         nil
  138.     :button-type            :normal
  139.     :foreground-color       ""
  140.     :label                  "File Chooser..."
  141.     :label-type             :string
  142.     :initial-state          :active
  143.     :menu                   nil
  144.     :notify-handler         chooser_load_proc
  145.     :event-handler          nil
  146.     :user-data              ()
  147.     :actions                (
  148.         (
  149.         :from                   (window1 chooser_load)
  150.         :when                   (Notify )
  151.         :to                     (window1 chooser_load)
  152.         :function_type          CallFunction
  153.         :arg_type               ()
  154.         :action                 (chooser_load_proc)
  155.         )
  156.     )
  157. )
  158. (
  159.     :type                   :text-field
  160.     :name                   l_fname
  161.     :owner                  controls1
  162.     :help                   ""
  163.     :x                      28
  164.     :y                      59
  165.     :width                  234
  166.     :height                 15
  167.     :value-x                102
  168.     :value-y                59
  169.     :value-length           20
  170.     :stored-length          255
  171.     :rows                   3
  172.     :foreground-color       ""
  173.     :text-type              :alphanumeric
  174.     :label                  "Filename:"
  175.     :label-type             :string
  176.     :layout-type            :horizontal
  177.     :value-underlined       t
  178.     :initial-value          ""
  179.     :initial-state          :active
  180.     :read-only              nil
  181.     :notify-handler         lname_proc
  182.     :event-handler          nil
  183.     :user-data              ()
  184.     :actions                (
  185.         (
  186.         :from                   (window1 l_fname)
  187.         :when                   (Notify )
  188.         :to                     (window1 l_fname)
  189.         :function_type          CallFunction
  190.         :arg_type               ()
  191.         :action                 (lname_proc)
  192.         )
  193.     )
  194. )
  195. (
  196.     :type                   :message
  197.     :name                   message2
  198.     :owner                  controls1
  199.     :help                   ""
  200.     :x                      8
  201.     :y                      84
  202.     :width                  35
  203.     :height                 13
  204.     :foreground-color       ""
  205.     :label                  "Save:"
  206.     :label-type             :string
  207.     :label-bold             t
  208.     :initial-state          :active
  209.     :event-handler          nil
  210.     :user-data              ()
  211.     :actions                ()
  212. )
  213. (
  214.     :type                   :setting
  215.     :name                   smode
  216.     :owner                  controls1
  217.     :help                   ""
  218.     :x                      32
  219.     :y                      97
  220.     :width                  266
  221.     :height                 23
  222.     :value-x                80
  223.     :value-y                97
  224.     :rows                   1
  225.     :columns                0
  226.     :layout-type            :horizontal
  227.     :foreground-color       ""
  228.     :setting-type           :stack
  229.     :selection-required     t
  230.     :label                  "mode:"
  231.     :label-type             :string
  232.     :notify-handler         smode_proc
  233.     :event-handler          nil
  234.     :choices                ("GENIAL Image w/ log" "GENIAL Image w/o log" "Rectangular GENIAL subimage" "GENIAL log file" "Sun Rasterfile Image Dump" "ASCII trace vector" "ASCII histogram vector" )
  235.     :choice-label-types     (:string :string :string :string :string :string :string )
  236.     :choice-colors          ("" "" "" "" "" "" "" )
  237.     :choice-defaults        (nil nil nil nil nil nil nil )
  238.     :initial-selections     (nil nil nil nil nil nil nil )
  239.     :initial-state          :active
  240.     :user-data              ()
  241.     :actions                (
  242.         (
  243.         :from                   (window1 smode)
  244.         :when                   (Notify )
  245.         :to                     (window1 smode)
  246.         :function_type          CallFunction
  247.         :arg_type               ()
  248.         :action                 (smode_proc)
  249.         )
  250.     )
  251. )
  252. (
  253.     :type                   :button
  254.     :name                   save
  255.     :owner                  controls1
  256.     :help                   ""
  257.     :x                      328
  258.     :y                      99
  259.     :width                  45
  260.     :height                 19
  261.     :constant-width         nil
  262.     :button-type            :normal
  263.     :foreground-color       ""
  264.     :label                  "save"
  265.     :label-type             :string
  266.     :initial-state          :active
  267.     :menu                   nil
  268.     :notify-handler         save_proc
  269.     :event-handler          nil
  270.     :user-data              ()
  271.     :actions                (
  272.         (
  273.         :from                   (window1 save)
  274.         :when                   (Notify )
  275.         :to                     (window1 save)
  276.         :function_type          CallFunction
  277.         :arg_type               ()
  278.         :action                 (save_proc)
  279.         )
  280.     )
  281. )
  282. (
  283.     :type                   :button
  284.     :name                   chooser_save
  285.     :owner                  controls1
  286.     :help                   ""
  287.     :x                      280
  288.     :y                      125
  289.     :width                  102
  290.     :height                 19
  291.     :constant-width         nil
  292.     :button-type            :normal
  293.     :foreground-color       ""
  294.     :label                  "File Chooser..."
  295.     :label-type             :string
  296.     :initial-state          :active
  297.     :menu                   nil
  298.     :notify-handler         chooser_save_proc
  299.     :event-handler          nil
  300.     :user-data              ()
  301.     :actions                (
  302.         (
  303.         :from                   (window1 chooser_save)
  304.         :when                   (Notify )
  305.         :to                     (window1 chooser_save)
  306.         :function_type          CallFunction
  307.         :arg_type               ()
  308.         :action                 (chooser_save_proc)
  309.         )
  310.     )
  311. )
  312. (
  313.     :type                   :text-field
  314.     :name                   s_fname
  315.     :owner                  controls1
  316.     :help                   ""
  317.     :x                      32
  318.     :y                      127
  319.     :width                  234
  320.     :height                 15
  321.     :value-x                106
  322.     :value-y                127
  323.     :value-length           20
  324.     :stored-length          255
  325.     :rows                   3
  326.     :foreground-color       ""
  327.     :text-type              :alphanumeric
  328.     :label                  "Filename:"
  329.     :label-type             :string
  330.     :layout-type            :horizontal
  331.     :value-underlined       t
  332.     :initial-value          ""
  333.     :initial-state          :active
  334.     :read-only              nil
  335.     :notify-handler         sname_proc
  336.     :event-handler          nil
  337.     :user-data              ()
  338.     :actions                (
  339.         (
  340.         :from                   (window1 s_fname)
  341.         :when                   (Notify )
  342.         :to                     (window1 s_fname)
  343.         :function_type          CallFunction
  344.         :arg_type               ()
  345.         :action                 (sname_proc)
  346.         )
  347.     )
  348. )
  349. (
  350.     :type                   :popup-window
  351.     :name                   rect_choice_win
  352.     :owner                  window1
  353.     :width                  456
  354.     :height                 133
  355.     :background-color       ""
  356.     :foreground-color       ""
  357.     :label                  "Rectangular Subimage Save"
  358.     :label-type             :string
  359.     :initial-state          :invisible
  360.     :show-footer            nil
  361.     :resizable              nil
  362.     :pinned                 nil
  363.     :done-handler           nil
  364.     :event-handler          nil
  365.     :user-data              ()
  366.     :actions                ()
  367. )
  368. (
  369.     :type                   :control-area
  370.     :name                   controls2
  371.     :owner                  rect_choice_win
  372.     :help                   ""
  373.     :x                      0
  374.     :y                      0
  375.     :width                  456
  376.     :height                 133
  377.     :background-color       ""
  378.     :foreground-color       ""
  379.     :initial-state          :visible
  380.     :show-border            nil
  381.     :menu                   nil
  382.     :event-handler          nil
  383.     :user-data              ()
  384.     :actions                ()
  385. )
  386. (
  387.     :type                   :message
  388.     :name                   message3
  389.     :owner                  controls2
  390.     :help                   ""
  391.     :x                      20
  392.     :y                      28
  393.     :width                  268
  394.     :height                 13
  395.     :foreground-color       ""
  396.     :label                  "Please enter the log ID # of a rectangle:"
  397.     :label-type             :string
  398.     :label-bold             t
  399.     :initial-state          :active
  400.     :event-handler          nil
  401.     :user-data              ()
  402.     :actions                ()
  403. )
  404. (
  405.     :type                   :text-field
  406.     :name                   box_lid
  407.     :owner                  controls2
  408.     :help                   ""
  409.     :x                      44
  410.     :y                      52
  411.     :width                  125
  412.     :height                 15
  413.     :value-x                98
  414.     :value-y                52
  415.     :value-length           2
  416.     :stored-length          8
  417.     :rows                   3
  418.     :foreground-color       ""
  419.     :text-type              :numeric
  420.     :label                  "Log ID:"
  421.     :label-type             :string
  422.     :layout-type            :horizontal
  423.     :value-underlined       t
  424.     :max-value              100
  425.     :min-value              0
  426.     :initial-value          0
  427.     :initial-state          :active
  428.     :read-only              nil
  429.     :notify-handler         boxid_proc
  430.     :event-handler          nil
  431.     :user-data              ()
  432.     :actions                (
  433.         (
  434.         :from                   (rect_choice_win box_lid)
  435.         :when                   (Notify )
  436.         :to                     (rect_choice_win box_lid)
  437.         :function_type          CallFunction
  438.         :arg_type               ()
  439.         :action                 (boxid_proc)
  440.         )
  441.     )
  442. )
  443. (
  444.     :type                   :button
  445.     :name                   box_save
  446.     :owner                  controls2
  447.     :help                   ""
  448.     :x                      120
  449.     :y                      88
  450.     :width                  45
  451.     :height                 19
  452.     :constant-width         nil
  453.     :button-type            :normal
  454.     :foreground-color       ""
  455.     :label                  "save"
  456.     :label-type             :string
  457.     :initial-state          :active
  458.     :menu                   nil
  459.     :notify-handler         box_save_proc
  460.     :event-handler          nil
  461.     :user-data              ()
  462.     :actions                (
  463.         (
  464.         :from                   (rect_choice_win box_save)
  465.         :when                   (Notify )
  466.         :to                     (rect_choice_win box_save)
  467.         :function_type          CallFunction
  468.         :arg_type               ()
  469.         :action                 (box_save_proc)
  470.         )
  471.     )
  472. )
  473. (
  474.     :type                   :button
  475.     :name                   box_cancel
  476.     :owner                  controls2
  477.     :help                   ""
  478.     :x                      216
  479.     :y                      88
  480.     :width                  56
  481.     :height                 19
  482.     :constant-width         nil
  483.     :button-type            :normal
  484.     :foreground-color       ""
  485.     :label                  "cancel"
  486.     :label-type             :string
  487.     :initial-state          :active
  488.     :menu                   nil
  489.     :notify-handler         box_cancel_proc
  490.     :event-handler          nil
  491.     :user-data              ()
  492.     :actions                (
  493.         (
  494.         :from                   (rect_choice_win box_cancel)
  495.         :when                   (Notify )
  496.         :to                     (rect_choice_win box_cancel)
  497.         :function_type          CallFunction
  498.         :arg_type               ()
  499.         :action                 (box_cancel_proc)
  500.         )
  501.     )
  502. )
  503. )
  504.